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EDTSLGETSTR = set up search and replace strings 18-Se -1984 00:50:57 VAX-11 Bliss-32 V4.0-7 Pa 1 
° 1b-Se0-1984 99:39:36 DISKSVMSMASTER:CE Lot sac LGETSTR.BLI;1 a (1) 
1 9001 ZTITLE ‘EDTSLGETSTR - set up search and replace p*cines 
¢ itd MODULE EDTSLGETSTR ( ; : Set up search and r Ceplece strings 
7 Bee? pers = 'v04-000 ! File: LGETSTR.BLI Edit: 58S1003 
2 Bope : BEGIN 
7 00 1 PITITILITILLLI LLL LLL LLL LLL LLL LLL iLL LiL LiL 
8 0008 1 !* + 
9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
13 get) } . ALL RIGHTS RESERVED. * 
e ® 
18 tk 1 !e me are. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
14 0014 1 !* ONLY IN ACCORDANCE WITH —E TERM SUCH LICENSE D WITH THE * 
15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
17 0017 1 !'* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
18 dt : hs TRANSFERRED. * 
;2 ra 
20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
21 0021 1 '!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$8 BoS¢ : * CORPORATION. . 
if 
24 oose 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
26 0026 1 !* * 
e7 0027 1 !« * 
28 0028 1 eae eee e eee RRR A AAA RARE A AAA AAA AE RARE 
29 Boer 1! 
$0 0030 1 
31 0031 1 !++ : 
32 0035 1 ! FACILITY: EDT -- The DEC Standard Editor 
33 00335 1! 
34 0034 1 ! ABSTRACT: 
35 0035 1! ; 
3 Bo36 : Set up search and replace strings. 
$ st : ENVIRONMENT: Runs at any access mode - AST reentrant 
29 ayee : AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
42 0042 1 | MODIFIED SY: 
43 0043 1! 
64 ng: 1 ! 1-001 = Original. DJS 10-MAR-81. This module was created by 
45 045 1! extracting the routine EDTSS$SET_STR from EXEC.BLI. 
46 0046 1 ! 1-002 = Regularize headers. JBS 20-Mar-1981 
47 0047 1 ! 1-003 - Return a value. JBS 04-May-1982 
48 0048 1 !-- 
49 0049 1 
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EXTERNAL REFERENCES: 
In the routine 


K 1 
EDTSLGETSTR EDTSLGETSTR = set up search and replace strings 16-Sep-1984 00:50:57 
Pe tii Declarations , “ 1e-8ep-1984 19:39:35 
51 0050 1 XSBTTL ‘Declarations’ 
2g 00s1 1! 
5 6036 1 ! TABLE OF CONTENTS: 
54 0053 1! 
55 0054 1 
56 0055 1 REQUIRE ‘EDTSRC: TRAROUNAM’ ; 
57 0494 1 
58 0495 1 FORWARD ROUTINE 
59 0496 1 EDTSSSET_STR; 
0 0497 1 
61 0498 1! 
0499 1 ! INCLUDE FILES: 
0500 1! 
6 0501 1 
65 05 $ 1 REQUIRE ‘EDTSRC:EDTREQ'; 
06 1 
0638 1! 
0639 1 ! MACROS: 
0640 1! 
: NONE 
7 064 1 ! EQUATED SYMBOLS: 
7 0644 1! 
74 0645 1! NONE 
75 0646 1! 
76 0647 1 ! OWN STORAGE: 
77 0648 1! 
78 0649 : NONE 
1 i 
: 2 
2 3 
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-TITLE EDTSLGETSTR EDTSLGETSTR = set up search and rep 
; lace strings 


1 
| EDTSLGETSTR EDTSLGETSTR = set up search and replace strings 18-Se -1984 00:50:57 VAX-11 Bliss-32 V4.0-74 Page 3 
| e 
“¥04=000 EDTSSSET STR = set up search and replacenent’s 10-Sep-1984 99:38:35 DT SKSVMMASTERSCEDT. SRCSLGETSTR.BLI; 1 * (3) 
3 ee 963% ! ZSBTTL 'EDTSSSET_STR = set up search and replacement strings‘ 
3 8 0656 } GLOBAL ROUTINE EDTSSSET_STR ! Set up search and replacement strings 
3 88 8628 1 
is 89 0659 1 I++ 
|; + Reed : FUNCTIONAL DESCRIPTION: 
l3 36 0662 1! Setup the search and replace ing Hae for a SUBSTITUTE or SUBSTITUTE next 
is 9g 0665 1! command. ihe strings are described by the node block pointed to by 
3 ge peee ; the STR_PNT field of the current command node block. 
: 96 666 1 ! FORMAL PARAMETERS: 
: oy 0667 1! 
; «#98 0668 1! NONE 
: 99 0669 1! 
: 100 0670 1 ! IMPLICIT INPUTS: 
: 101 0671 1! 
; 108 0672 1! EDTSSA_EXE_CURCMD 
: 10 0673 1! 
; 104 0674 1 ! IMPLICIT OUTPUTS: 
: 105 0675 1! 
: 106 0676 1! NONE 
3 107 0677 1! 
3; 106 0678 1 ! ROUTINE VALUE: 
3; 109 0679 1! 
s 110 0680 1! 1 = success 
: #111 0681 1! 0 = error 
: i"§ 0682 1! 
s 4 06835 1 ! SIDE EFFECTS: 
s 916 0684 1! 
306115 0685 1! Calls EDTS$SET_SEASUBSTR 
: 6116 0686 1! 
. SSF 0687 1 !-- 
: 118 0688 1 
3 (119 0689 2 BEGIN | 
s Te 06 2 
> ae 0691 2 EXTERNAL ROUTINE 
: \¢¢ 069 § EDTSSSET_SEASUBSTR; 
s Ve 069 
: 124 0694 § EXTERNAL 
3 1$2 bene EDTSSA_EXE_CURCMD : REF NODE_BLOCK; ! Pointer to the current command. | 
: 159 697 3 BIND | 
: 128 698 STRINGS = .EDTS$SA_EXE_CURCMD CSTR_PNT] : NODE_BLOCK; 
3 19? 0699 
; 130 0700 LOCAL 
: it 44 RET_VALUE; 
3 138 070 RET_VALUE = EDTSSSET_SEASUBSTR (.STRINGS CSRCHADDR], .STRINGS CSRCHLEN], .STRINGS CREPADDRI, 
: 134 0704 -STRINGS CREPLEN]); 
3: 135 0705 RETURN (.RET_VALUE); 
: «136 0706 1 END; ! of routine EDTSS$SET_STR 
| 
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0 res Pa | 
STR = set up search and replacement s 1 p-1 DISKSVMSMASTER:CEDT.SRCJLGETSTR.BLI;1 (3 
IDENT \Vv04=000\ 


.EXTRN EDTSSSET_SEASUBSTR 
TEXTRN EDTSSA_ERE_CURCMD 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


| 
| 
| 


000 .ENTRY EDTS$SET_STR, Save nothin > 065 
9 000000006 9 09 ; ROVL” —EDTSSA_ERE,CORCHD, _ Yahtits : 069 
A MOVL (RO), RO s 
E C AO 70 D MOVa 2(ROS, =(SP) + 0703 
43 4 Aad 70 i! MOVO 4(RO), =(SP) : 
000000006 0 04 FB 0001 CALLS #4, EOTS$SET_SEASUBSTR : 
04 0001C RET + 0706 


; Routine Size: 29 bytes, Routine Base: _EDTSCODE + 0000 


137 0707 1 
; 64138 0708 1 !<BLF/PAGE> 
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Elapsed Time: 00:11.3 
Lines/CPU Min: 4547 
Sey Ae ge 13170 

Y Used: 64 pages 
— ation Complete 
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| EDTSLGETSTR EDTSLGETSTR = set up search and replace strings 16-Sep-1984 00:50:57 VAX-11 Bliss-32 V 5 
hos 505 EDTS$SET STR - set up search and replacements 14- Haat 99:39:32 DISKSVMSMASTER: ce i SRCSLGETSTR. BLI;1 ead (4) | 
140 0709 1 END ! of module EDTSLGETSTR 
: 14) O710 . | 
: 142 711 +O ELUDOM 
- PSECT SUMMARY | 
: Name Bytes Attributes 
: _EDTSCODE 29 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
| 
: Library Statistics 
: eocece - Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28: : EDT. SRCJEDT 132: 1 377 49 12 40 00:00.2 
; ~$255$DUA28: - SRCJPSECTS.L32;1 2 1 50 7 00:00.1 | 
; COMMAND QUALIFIERS 
‘ SL ISS/CMECK CF SELB, INE TIAL .OPTIAIZE)/NOTRACEBACK/L IS=4 1SS:LGETSTR/OBJ=0BIS tL GETSTA MSRC$:LGETSTR.BLI/UPDATE=(ENH$:LGETSTR 
Size 29 code + 0 data bytes | 
Run Time 00:09.4 
| 
| 
| 


nn 


VAX/VMS V4.0 


0136 AH-BT13A-SE. 


